unit cx_XML;

interface
uses
 m_globaldefs, m_api;

var
 cx_XMLw: XML_API_W;
 //cx_XMLa: XML_API_A;

function InitXMLa(var XMLa: XML_API_A): Boolean;
function InitXMLw(var XMLw: XML_API_W): Boolean;

implementation

function InitXMLa(var XMLa: XML_API_A): Boolean;
begin
 FillChar(XMLa, SizeOf(XML_API_A), 0);
 XMLa.cbSize := SizeOf(XML_API_a);
 Result := Boolean(PluginLink^.CallService(MS_SYSTEM_GET_XI, 0, DWORD(@XMLa)));
end;

function InitXMLw(var XMLw: XML_API_W): Boolean;
begin
 FillChar(XMLw, SizeOf(XML_API_W), 0);
 XMLw.cbSize := SizeOf(XML_API_W);
 Result := Boolean(PluginLink^.CallService(MS_SYSTEM_GET_XI, 0, DWORD(@XMLw)));
end;

end.
